home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Scheduled Tasks 3.xpl < prev    next >
Text File  |  2003-09-16  |  1KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="System\Scheduled Tasks"
  5. "NAME"="Missed Task Notification"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Notify of missed tasks with pop-up"
  9. "DESCRIPTION 1"="All new Windows versions contain the "Scheduled Tasks" service, which can be used to schedule program execution. 
  10. "DESCRIPTION 2"="The default setting is that you do not receive any notification for missed tasks, for example because you turned your Computer off.
  11. "DESCRIPTION 3"="With this setting activated, you will be notified by Windows when a task could not be run together with an option to re-run the task again.
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Also known as "Scheduling Agent""
  16. "COMMENT 2"="Found at Registry Guide for Windows"
  17.  
  18.  
  19. sPath="HKLM\SOFTWARE\Microsoft\SchedulingAgent\NotifyOnTaskMiss" 'DW
  20.  
  21. Sub Plugin_Initialize 
  22.  i=RegReadValue(sPath)
  23.  if i=1 then 
  24.     SetUIElement 1,true 
  25.  end if
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  i=GetUIElement(1)
  33.  if i=0 then
  34.     if RegValueExists(sPath) then Call RegDeleteValue(sPath)
  35.  else
  36.     Call RegWriteValue(sPath,1,2)
  37.  end if
  38.  
  39.  Call Restart()
  40. End Sub
  41.  
  42. Sub Plugin_Terminate 
  43. End Sub
  44.  
  45.  
  46.  
  47.